﻿Public Class frmSingleton

    Private Sub frmSingleton_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Output.Print("-------------------------")
        Output.Print("--Patrón Singleton:")
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim config As Configuracion = Configuracion.getInstancia()
        Output.Print(String.Format("Entorno: {0}", config.Entorno))
    End Sub
End Class